perm filename T1[MUS,LCS]1 blob
sn#198646 filedate 1976-01-27 generic text, type T, neo UTF8
RCDFLG←-1;
< ZOR21.DAT -- RANDOM NUMBER= 34
PLAY;
TOOT 0.000 1.600 A/2 500.000 F1 F4 F4
F4 F4
;PRINT(P1);< TOOT 1
CLAR 0.400 1.600 E*2 500.000 F1 F4 F4
F4 F4
;PRINT(P1);< TOOT 2
BRIT 0.800 1.600 C 500.000 F1 F4 F4
F4 F4
;PRINT(P1);< TOOT 3
BUZZ 1.200 1.600 GS/2 500.000 F1 F4 F4
F4 F4
;PRINT(P1);< TOOT 4
TOOT 1.600 1.600 C 500.000 F1 F4 F4
F4 F4
;PRINT(P1);< TOOT 5
CLAR 2.000 1.600 FS*2 500.000 F1 F4 F4
F4 F4
;PRINT(P1);< TOOT 6
BRIT 2.400 1.600 D 500.000 F1 F4 F4
F4 F4
;PRINT(P1);< TOOT 7
BUZZ 2.800 1.600 C 500.000 F1 F4 F4
F4 F4
;PRINT(P1);< TOOT 8
TOOT 3.200 1.600 AS 500.000 F1 F4 F4
F4 F4
;PRINT(P1);< TOOT 9
CLAR 3.600 1.600 AS 500.000 F1 F4 F4
F4 F4
;PRINT(P1);< TOOT 10
BRIT 4.000 1.600 CS 500.000 F1 F4 F4
F4 F4
;PRINT(P1);< TOOT 11
BUZZ 4.400 1.600 FS 500.000 F1 F4 F4
F4 F4
;PRINT(P1);< TOOT 12
TOOT 4.800 1.600 A/2 500.000 F1 F4 F4
F4 F4
;PRINT(P1);< TOOT 13
CLAR 5.200 1.600 A/2 500.000 F1 F4 F4
F4 F4
;PRINT(P1);< TOOT 14
BRIT 5.600 1.600 F 500.000 F1 F4 F4
F4 F4
;PRINT(P1);< TOOT 15
BUZZ 6.000 1.600 C 500.000 F1 F4 F4
F4 F4
;PRINT(P1);< TOOT 16
TOOT 6.400 1.600 GS 500.000 F1 F4 F4
F4 F4
;PRINT(P1);< TOOT 17
CLAR 6.800 1.600 E 500.000 F1 F4 F4
F4 F4
;PRINT(P1);< TOOT 18
BRIT 7.200 1.600 F*2 500.000 F1 F4 F4
F4 F4
;PRINT(P1);< TOOT 19
BUZZ 7.600 1.600 G/2 500.000 F1 F4 F4
F4 F4
;PRINT(P1);< TOOT 20
TOOT 8.000 1.600 C*2 500.000 F1 F4 F4
F4 F4
;PRINT(P1);< TOOT 21
CLAR 8.400 1.600 D/2 500.000 F1 F4 F4
F4 F4
;PRINT(P1);< TOOT 22
BRIT 8.800 1.600 D 500.000 F1 F4 F4
F4 F4
;PRINT(P1);< TOOT 23
BUZZ 9.200 1.600 AS/2 500.000 F1 F4 F4
F4 F4
;PRINT(P1);< TOOT 24
TOOT 9.600 1.600 DS 500.000 F1 F4 F4
F4 F4
;PRINT(P1);< TOOT 25
FINISH; < ZOR21.DAT